home *** CD-ROM | disk | FTP | other *** search
/ Digital Talk 55 / Digital_Talk_55_2002-06-10_Digital_Talk_de_Side_C.d64 / t&t dt. umlaute (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  61 lines
  1. 10 :rem================================
  2. 11 :rem  zeichen schnell installieren
  3. 12 :rem  ohne basic-ram verlust
  4. 13 :rem  bildschirm im oberen ram
  5. 14 :rem  zeichen unterm i/o bereich
  6. 15 :rem (freisoft demo/freeware-demo)
  7. 16 :rem    (d.breitinger 2002)
  8. 17 :rem================================
  9. 18 :
  10. 19 :goto1000:
  11. 20 :save"@0:t&t deut.umlaute",8:return:
  12. 21 :goto120:----data poke
  13. 22 :
  14. 100 :rem---zeichensatz aus(l)
  15. 101 :deffn p(a)=peek(209)+peek(210)*256+pos(.):
  16. 103 :::fora=.to255:pokefnp(.),a:print"";:next:print:return:
  17. 104 :
  18. 105 :
  19. 120 :a=.:rem---super data-poke (ende:-1)
  20. 121 :c=peek(1):poke56334,.:poke1,51:gosub122:poke1,c:poke56334,1:return:
  21. 122 :fora=ato65535:readb:ifb>=.andb<256then:pokea,b:goto124:
  22. 123 :a=b-1-(b=-1)*66000
  23. 124 :next:return:
  24. 125 :
  25. 126 :
  26. 127 :
  27. 140 :l=24:rem---schirm fuellen(c,l)
  28. 141 :s=59915+(peek(59911)>32)*3:ifl>24then:l=24:
  29. 142 :pokes,c:poke781,l:sys58720:pokes,32:return:
  30. 143 :
  31. 144 :
  32. 150 :rom/ram,schirm(52224)zeichen(53248)
  33. 151 :poke646,peek(53281)
  34. 152 poke56334,.:poke1,51:fori=88to91:pokei,.:next:poke781,97:poke782,.:sys41971
  35. 153 :poke1,53:poke56334,1:poke648,204:sys58692:poke56576,196:poke53272,52
  36. 154 :a=43039:pokea,61:pokea+2,.:pokea+4,62:return:---restore zeile
  37. 155 :
  38. 260 :a=100:rem---umlaut-daten einfuegen
  39. 261 :restore:a=fnz(a):goto121
  40. 262 :
  41. 263 ::data102,,60,6,62,102,62,::data102,60,102,126,102,102,102,::rem---ae,2x
  42. 264 ::data102,,60,102,102,102,60,::data102,60,102,102,102,102,60,::rem---oe,2x
  43. 265 ::data102,,,102,102,102,62,::data102,66,102,102,102,102,60,::rem---ue,2x
  44. 266 ::data60,102,102,108,102,102,108,96,-1:rem---sz
  45. 267 :
  46. 997 :
  47. 998 :
  48. 999 :
  49. 1000 :rem==============================
  50. 1001 :rem   zeichen-demo
  51. 1002 :rem==============================
  52. 1003 :
  53. 1005 :deffn z(a)=16384*(not(peek(56576))and3)+1024*(peek(53272)and14)+a*8
  54. 1009 :
  55. 1010 :gosub151:rem----zeichen copy
  56. 1012 :print"[147][218]eichen-[196]emo:":gosub100
  57. 1013 :print"install":restore:gosub260:
  58. 1014 :print"a=fnz(.):?a:rem---adr."
  59. 1015 :print"[213]mlaute:   [164],[165],[166],[167],[168],[169],[170]
  60. 1016 :
  61.